home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ALF-CHAT.ZIP / HOTCHAT.PPD < prev    next >
Text File  |  1994-07-24  |  41KB  |  1,802 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 1.01            (c)1994 by Chicken/ECR
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 2.00 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.      STRING     VAR001
  11.      STRING     VAR002
  12.      STRING     VAR003
  13.      STRING     VAR004
  14.      STRING     VAR005
  15.      INTEGER    VAR006
  16.      INTEGER    VAR007
  17.      INTEGER    VAR008
  18.      INTEGER    VAR009
  19.      INTEGER    VAR010
  20.      INTEGER    VAR011
  21.      INTEGER    VAR012
  22.      INTEGER    VAR013
  23.      INTEGER    VAR014
  24.      STRING     VAR015
  25.      STRING     VAR016
  26.      STRING     VAR017
  27.      STRING     VAR018
  28.      STRING     VAR019
  29.      STRING     VAR020
  30.      STRING     VAR021
  31.      STRING     VAR022
  32.      STRING     VAR023
  33.      STRING     VAR024
  34.      STRING     VAR025
  35.      STRING     VAR026
  36.      STRING     VAR027
  37.      TIME       VAR028
  38.      STRING     VAR029
  39.      STRING     VAR030
  40.      STRING     VAR031
  41.      STRING     VAR032
  42.      STRING     VAR033
  43.      STRING     VAR034
  44.      STRING     VAR035
  45.      STRING     VAR036
  46.      STRING     VAR037
  47.      STRING     VAR038
  48.      STRING     VAR039
  49.      STRING     VAR040
  50.      STRING     VAR041
  51.      STRING     VAR042
  52.      BOOLEAN    VAR043
  53.      STRING     VAR044
  54.      STRING     VAR045
  55.      STRING     VAR046
  56.      STRING     VAR047
  57.      STRING     VAR048
  58.      STRING     VAR049
  59.      STRING     VAR050
  60.      STRING     VAR051
  61.      STRING     VAR052
  62.      INTEGER    VAR053
  63.      INTEGER    VAR054
  64.      INTEGER    VAR055
  65.      INTEGER    VAR056
  66.      INTEGER    VAR057
  67.      INTEGER    VAR058
  68.      STRING     VAR059
  69.      STRING     VAR060
  70.      STRING     VAR061
  71.      INTEGER    VAR062
  72.      STRING     VAR063
  73.      STRING     VAR064
  74.      INTEGER    VAR065
  75.      INTEGER    VAR066
  76.      INTEGER    VAR067
  77.      INTEGER    VAR068
  78.      INTEGER    VAR069
  79.      INTEGER    VAR070
  80.      INTEGER    VAR071
  81.      INTEGER    VAR072
  82.      INTEGER    VAR073
  83.      INTEGER    VAR074
  84.      STRING     VAR075
  85.      STRING     VAR076
  86.      STRING     VAR077
  87.      STRING     VAR078
  88.      STRING     VAR079
  89.      STRING     VAR080
  90.      STRING     VAR081
  91.      STRING     VAR082
  92.      STRING     VAR083
  93.      STRING     VAR084
  94.      STRING     VAR085
  95.      STRING     VAR086
  96.      STRING     VAR087
  97.      STRING     VAR088
  98.      STRING     VAR089
  99.      STRING     VAR090
  100.      STRING     VAR091
  101.      STRING     VAR092
  102.      STRING     VAR093
  103.      STRING     VAR094
  104.      STRING     VAR095
  105.      STRING     VAR096
  106.      STRING     VAR097
  107.      STRING     VAR098
  108.      STRING     VAR099
  109.      STRING     VAR100
  110.      STRING     VAR101
  111.      STRING     VAR102
  112.      STRING     VAR103
  113.      STRING     VAR104
  114.      STRING     VAR105
  115.      STRING     VAR106
  116.      STRING     VAR107
  117.      STRING     VAR108
  118.      STRING     VAR109
  119.      STRING     VAR110
  120.      STRING     VAR111
  121.      STRING     VAR112
  122.      STRING     VAR113
  123.      STRING     VAR114
  124.      STRING     VAR115
  125.      STRING     VAR116
  126.      STRING     VAR117
  127.      STRING     VAR118
  128.      STRING     VAR119
  129.      STRING     VAR120
  130.      STRING     VAR121
  131.      STRING     VAR122
  132.      STRING     VAR123
  133.      STRING     VAR124
  134. ;------------------------------------------------------------------------------
  135.  
  136.     LET VAR026="3.1b"
  137.     LET VAR002=""
  138.     LET VAR011=""
  139.     LET VAR003=""
  140.     LET VAR004=""
  141.     LET VAR062=1
  142.     LET VAR028=SEC(TIME())
  143.     LET VAR040="General Discussion"
  144.     LET VAR061=CHR(27)
  145.     LET VAR052="   "
  146.     LET VAR029=CHR(13)
  147.     LET VAR030=VAR061+"["
  148.     LET VAR031=VAR030+"0;0H"
  149.     LET VAR032=VAR030+"K"
  150.     LET VAR044=CHR(8)
  151.     LET VAR045=PCBNODE()
  152.     LET VAR033=PPEPATH()+"HOTHELP"
  153.     LET VAR034=PPEPATH()+"HOTSTAT"
  154.     LET VAR124=PPEPATH()+"HOTTIME"
  155.     LET VAR065=0
  156.     LET VAR060=PPEPATH()+"HOTACH"
  157.     LET VAR035=PPEPATH()+"HOTMENU"
  158.     LET VAR037=PPEPATH()+"HOTTEXT"
  159.     IF (!EXIST(VAR037+LANGEXT())) GOTO LABEL000
  160.     LET VAR037=VAR037+LANGEXT()
  161.  
  162. :LABEL000
  163.     LET VAR059=PPEPATH()+"HOTACT"
  164.     IF (!EXIST(VAR059+LANGEXT())) GOTO LABEL001
  165.     LET VAR059=VAR059+LANGEXT()
  166.  
  167. :LABEL001
  168.     LET VAR036=PPEPATH()+"HOTCFG"
  169.     LET VAR038=""
  170.     LET VAR039=""
  171.     LET VAR043=0
  172.     LET VAR042=""
  173.     LET VAR066=0
  174.     LET VAR067=0
  175.     LET VAR068=0
  176.     LET VAR069=0
  177.     LET VAR070=0
  178.     LET VAR072=READLINE(VAR036,2)
  179.     LET VAR073=READLINE(VAR036,3)
  180.     LET VAR074=READLINE(VAR036,6)
  181.     LET VAR075=READLINE(VAR036,7)
  182.     LET VAR076=READLINE(VAR036,8)
  183.     LET VAR077=READLINE(VAR037,1)
  184.     LET VAR078=READLINE(VAR037,5)
  185.     LET VAR079=READLINE(VAR037,6)
  186.     LET VAR080=READLINE(VAR037,7)
  187.     LET VAR081=READLINE(VAR037,8)
  188.     LET VAR082=READLINE(VAR037,9)
  189.     LET VAR083=READLINE(VAR037,10)
  190.     LET VAR084=READLINE(VAR037,11)
  191.     LET VAR085=READLINE(VAR037,12)
  192.     LET VAR086=READLINE(VAR037,13)
  193.     LET VAR087=READLINE(VAR037,14)
  194.     LET VAR088=READLINE(VAR037,15)
  195.     LET VAR089=READLINE(VAR037,16)
  196.     LET VAR090=READLINE(VAR037,17)
  197.     LET VAR091=READLINE(VAR037,18)
  198.     LET VAR092=READLINE(VAR037,19)
  199.     LET VAR093=READLINE(VAR037,20)
  200.     LET VAR094=READLINE(VAR037,21)
  201.     LET VAR095=READLINE(VAR037,22)
  202.     LET VAR096=READLINE(VAR037,23)
  203.     LET VAR097=READLINE(VAR037,24)
  204.     LET VAR098=READLINE(VAR037,25)
  205.     LET VAR099=READLINE(VAR037,26)
  206.     LET VAR100=READLINE(VAR037,27)
  207.     LET VAR101=READLINE(VAR037,28)
  208.     LET VAR102=READLINE(VAR037,29)
  209.     LET VAR103=READLINE(VAR037,30)
  210.     LET VAR104=READLINE(VAR037,31)
  211.     LET VAR105=READLINE(VAR037,32)
  212.     LET VAR106=READLINE(VAR037,33)
  213.     LET VAR107=READLINE(VAR037,34)
  214.     LET VAR108=READLINE(VAR037,35)
  215.     LET VAR109=READLINE(VAR037,36)
  216.     LET VAR110=READLINE(VAR037,37)
  217.     LET VAR111=READLINE(VAR037,38)
  218.     LET VAR112=READLINE(VAR037,39)
  219.     LET VAR113=READLINE(VAR037,40)
  220.     LET VAR114=READLINE(VAR037,41)
  221.     LET VAR115=READLINE(VAR037,42)
  222.     LET VAR116=READLINE(VAR037,43)
  223.     LET VAR117=READLINE(VAR037,44)
  224.     LET VAR118=READLINE(VAR037,45)
  225.     LET VAR119=READLINE(VAR037,46)
  226.     LET VAR120=READLINE(VAR037,47)
  227.     LET VAR121=READLINE(VAR037,48)
  228.     LET VAR122=READLINE(VAR037,49)
  229.     LET VAR123=READLINE(VAR037,50)
  230.     IF (!EXIST(PPEPATH()+"HOTCHAT.KEY")) GOTO LABEL013
  231.     FCLOSE 4
  232.     FOPEN 4,PPEPATH()+"HOTCHAT.KEY",O_RW,S_DN
  233.     FGET 4,VAR015
  234.     FGET 4,VAR016
  235.     FGET 4,VAR017
  236.     FGET 4,VAR018
  237.     FCLOSE 4
  238.     LET VAR012=1
  239.  
  240. :LABEL012
  241.     LET VAR002=VAR015
  242.     LET VAR003=VAR016
  243.     LET VAR004=VAR017
  244.     LET VAR005=VAR018
  245.     GOSUB LABEL241
  246.     GOTO LABEL014
  247.  
  248. :LABEL013
  249.     LET VAR055=MINLEFT()-10
  250.     LET VAR056=0-VAR055
  251.     ADJTIME VAR056
  252.     LET VAR065=VAR055
  253.     LET VAR002="       DEMO EVALUATION COPY"
  254.     LET VAR003="PLEASE ASK SYSOP TO REGISTER HOTCHAT"
  255.     LET VAR004="       SUPPORT SHAREWARE!"
  256.     LET VAR005=" "
  257.     GOSUB LABEL241
  258.     GOSUB LABEL242
  259.  
  260. :LABEL014
  261.     NEWLINES 1
  262.     GETUSER 
  263.     IF (!(U_EXPERT=1)) GOTO LABEL015
  264.     LET VAR043=1
  265.     GOTO LABEL016
  266.  
  267. :LABEL015
  268.     LET VAR043=0
  269.  
  270. :LABEL016
  271.     IF (!(READLINE(VAR036,1)="0")) GOTO LABEL017
  272.     LET VAR041=U_NAME()
  273.     GOTO LABEL019
  274.  
  275. :LABEL017
  276.     IF (!(U_ALIAS>"")) GOTO LABEL018
  277.     LET VAR041=U_ALIAS
  278.     GOTO LABEL019
  279.  
  280. :LABEL018
  281.     LET VAR041=U_NAME()
  282.  
  283. :LABEL019
  284.     LET VAR055=LEN(VAR041)
  285.     LET VAR051=""
  286.     LET VAR056=15-VAR055
  287.     IF (!(VAR056>0)) GOTO LABEL020
  288.     LET VAR051=SPACE(VAR056)
  289.  
  290. :LABEL020
  291.     IF (!(VAR055>15)) GOTO LABEL021
  292.     LET VAR041=LEFT(VAR041,15)
  293.  
  294. :LABEL021
  295.     LET VAR046=STRING(VAR062)+"-@X0D(@X0E"+VAR045+"@X0D)[@X0B"+VAR041+VAR051+"@X0D] @X0F: "
  296.     RDUNET PCBNODE()
  297.     WRUNET PCBNODE(),"G",VAR041,UN_CITY(),"HOT TUB "+STRING(VAR062),""
  298.     CLS 
  299.     NEWLINES 1
  300.     PRINTLN VAR079
  301.     FCLOSE 4
  302.     FOPEN 4,VAR059,O_RW,S_DN
  303.     NEWLINES 1
  304.     PRINTLN VAR080
  305.     PRINT "@X08---------------------------"
  306.     FRESHLINE 
  307.     LET VAR056=0
  308.     LET VAR055=1
  309.  
  310. :LABEL022
  311.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL027
  312.     RDUNET VAR055
  313.     IF (!(UPPER(LEFT(UN_OPER(),7))="HOT TUB")) GOTO LABEL026
  314.     GOSUB LABEL209
  315.     IF (!LEN(UN_NAME()<16)) GOTO LABEL023
  316.     LET VAR056=VAR056+LEN(UN_NAME())
  317.     LET VAR038=UN_NAME()
  318.     GOTO LABEL024
  319.  
  320. :LABEL023
  321.     LET VAR056=VAR056+15
  322.     LET VAR038=LEFT(UN_NAME(),15)
  323.  
  324. :LABEL024
  325.     IF (!(VAR056>55)) GOTO LABEL025
  326.     LET VAR056=0
  327.     FRESHLINE 
  328.     PRINT "@X0B"+VAR038+", "
  329.     GOTO LABEL026
  330.  
  331. :LABEL025
  332.     PRINT "@X0B"+VAR038+", "
  333.  
  334. :LABEL026
  335.     LET VAR055=VAR055+1
  336.     GOTO LABEL022
  337.  
  338. :LABEL027
  339.     BACKUP 2
  340.     PRINT " "
  341.     PRINTLN "@X0F"
  342.     NEWLINES 1
  343.     GETUSER 
  344.     IF (!(VAR072=1)) GOTO LABEL028
  345.     LOG U_NAME()+" Entered Hot Chat",0
  346.  
  347. :LABEL028
  348.     LET VAR038="@X0B"+VAR041+" "+VAR077
  349.     GOSUB LABEL212
  350.     PRINTLN VAR038
  351.     LET VAR038="*"+VAR038
  352.     GOSUB LABEL234
  353.     LET VAR047=VAR038
  354.     LET VAR038=VAR038+CHR(7)
  355.     GOSUB LABEL228
  356.     LET VAR038=""
  357.  
  358. :LABEL029
  359. ;    PRINTLN VAR041+" : "+VAR029
  360.     FRESHLINE 
  361.     LET VAR058=0
  362.     LET VAR042=""
  363.     LET VAR039=""
  364.  
  365. :LABEL030
  366.     IF (!(VAR042<>VAR029)) GOTO LABEL036
  367.     LET VAR042=INKEY()
  368.     IF (!((LEN(VAR039)=0)&((TIME()-VAR028)>VAR073))) GOTO LABEL031
  369.     GOSUB LABEL213
  370.  
  371. :LABEL031
  372.     IF (!((LEN(VAR039)=199)&(VAR042<>VAR029))) GOTO LABEL032
  373.     PRINTLN "@X0A  Line limit reached...@X0F"
  374.     GOSUB LABEL212
  375.     GOTO LABEL036
  376.  
  377.  
  378. :LABEL032
  379.     IF (!(((((((((((VAR042="PGUP")|(VAR042="PGDN"))|(VAR042="LEFT"))|(VAR042="RIGHT"))|(VAR042="INS"))|(VAR042="DEL"))|(VAR042="HOME"))|(VAR042="END"))|(VAR042="UP"))|(VAR042="DOWN"))|(VAR042=VAR061))) GOTO LABEL033
  380.     LET VAR042=""
  381.  
  382. :LABEL033
  383.     IF (!((VAR042=VAR044)&(LEN(VAR039)>0))) GOTO LABEL034
  384.     LET VAR039=LEFT(VAR039,(LEN(VAR039)-1))
  385.     BACKUP 1
  386.     PRINT " "
  387.     BACKUP 1
  388.  
  389. :LABEL034
  390.     IF (!((((VAR042>"")&(VAR042<>VAR029))&(VAR042<>CHR(0)))&(VAR042<>VAR044))) GOTO LABEL035
  391.     LET VAR039=VAR039+VAR042
  392.     PRINT VAR075+VAR042
  393.  
  394. :LABEL035
  395.     GOTO LABEL030
  396.  
  397. :LABEL036
  398.     IF (!(UPPER(LEFT(VAR039,3))="/S,")) GOTO LABEL037
  399.     GOSUB LABEL070
  400.     GOTO LABEL029
  401.  
  402. :LABEL037
  403.     IF (!(UPPER(LEFT(VAR039,3))="/AL")) GOTO LABEL038
  404.     GOSUB LABEL087
  405.     GOTO LABEL029
  406.  
  407. :LABEL038
  408.     IF (!(UPPER(LEFT(VAR039,3))="/A,")) GOTO LABEL039
  409.     GOSUB LABEL088
  410.     GOTO LABEL029
  411.  
  412. :LABEL039
  413.     IF (!(UPPER(LEFT(VAR039,4))="/AS,")) GOTO LABEL040
  414.     GOSUB LABEL097
  415.     GOTO LABEL029
  416.  
  417. :LABEL040
  418.     IF (!(UPPER(LEFT(VAR039,4))="/INV")) GOTO LABEL041
  419.     GOSUB LABEL106
  420.     GOTO LABEL029
  421.  
  422. :LABEL041
  423.     IF (!(UPPER(LEFT(VAR039,4))="/PRI")) GOTO LABEL042
  424.     GOSUB LABEL114
  425.     GOTO LABEL029
  426.  
  427. :LABEL042
  428.     IF (!(UPPER(LEFT(VAR039,4))="/PUB")) GOTO LABEL043
  429.     GOSUB LABEL123
  430.     GOTO LABEL029
  431.  
  432. :LABEL043
  433.     IF (!(UPPER(LEFT(VAR039,3))="/P,")) GOTO LABEL044
  434.     GOSUB LABEL132
  435.     GOTO LABEL029
  436.  
  437. :LABEL044
  438.     IF (!(UPPER(LEFT(VAR039,2))="/C")) GOTO LABEL045
  439.     GOSUB LABEL139
  440.     GOTO LABEL029
  441.  
  442. :LABEL045
  443.     IF (!(UPPER(LEFT(VAR039,4))="/W,S")) GOTO LABEL046
  444.     GOSUB LABEL159
  445.     GOTO LABEL029
  446.  
  447. :LABEL046
  448.     IF (!(UPPER(LEFT(VAR039,2))="/W")) GOTO LABEL047
  449.     GOSUB LABEL186
  450.     GOTO LABEL029
  451.  
  452. :LABEL047
  453.     IF (!(UPPER(LEFT(VAR039,2))="/H")) GOTO LABEL048
  454.     GOSUB LABEL199
  455.     GOTO LABEL029
  456.  
  457. :LABEL048
  458.     IF (!(UPPER(LEFT(VAR039,2))="/?")) GOTO LABEL0481
  459.     GOSUB LABEL200
  460.     GOTO LABEL029
  461.  
  462. :LABEL0481
  463.     IF (!(UPPER(LEFT(VAR039,4))="HELP")) GOTO LABEL0482
  464.     GOSUB LABEL200
  465.     GOTO LABEL029
  466.  
  467. :LABEL0482
  468.     IF (!(UPPER(LEFT(VAR039,4))="MENU")) GOTO LABEL049
  469.     GOSUB LABEL200
  470.     GOTO LABEL029
  471.  
  472. :LABEL049
  473.     IF (!(UPPER(LEFT(VAR039,4))="/TOP")) GOTO LABEL0491
  474.     GOSUB LABEL201
  475.     GOTO LABEL029
  476.  
  477. :LABEL0491
  478.     IF (!(UPPER(LEFT(VAR039,2))="/S")) GOTO LABEL0492
  479.     GOSUB LABEL2001
  480.     GOSUB LABEL200
  481.     GOTO LABEL029
  482.  
  483. :LABEL0492
  484.     IF (!(UPPER(LEFT(VAR039,4))="STAT")) GOTO LABEL0493
  485.     GOSUB LABEL2001
  486.     GOSUB LABEL200
  487.     GOTO LABEL029
  488.  
  489. :LABEL0493
  490.     IF (!(UPPER(LEFT(VAR039,2))="/T")) GOTO LABEL0494
  491.     GOSUB LABEL2002
  492.     GOSUB LABEL200
  493.     GOTO LABEL029
  494.  
  495. :LABEL0494
  496.     IF (!(UPPER(LEFT(VAR039,4))="TIME")) GOTO LABEL0495
  497.     GOSUB LABEL2002
  498.     GOSUB LABEL200
  499.     GOTO LABEL029
  500.  
  501. :LABEL0495
  502.     IF (!(UPPER(LEFT(VAR039,4))="DATE")) GOTO LABEL050
  503.     GOSUB LABEL2002
  504.     GOSUB LABEL200
  505.     GOTO LABEL029
  506.  
  507. :LABEL050
  508.     IF (!(UPPER(LEFT(VAR039,2))="/Q")) GOTO LABEL0501
  509.     GOTO LABEL246
  510.     GOTO LABEL052
  511.  
  512. :LABEL0501
  513.     IF (!(UPPER(LEFT(VAR039,4))="QUIT")) GOTO LABEL0502
  514.     GOTO LABEL246
  515.     GOTO LABEL052
  516.  
  517. :LABEL0502
  518.     IF (!(UPPER(LEFT(VAR039,4))="EXIT")) GOTO LABEL051
  519.     GOTO LABEL246
  520.     GOTO LABEL052
  521.  
  522. :LABEL051
  523.     IF (!(UPPER(LEFT(VAR039,2))="/G")) GOTO LABEL052
  524.     GOTO LABEL246
  525.  
  526. :LABEL052
  527.     IF (!(LEFT(VAR039,1)="/")) GOTO LABEL053
  528.     FRESHLINE 
  529.     PRINTLN VAR081+VAR039+" "+VAR082
  530.     FRESHLINE 
  531.     GOTO LABEL029
  532.  
  533. :LABEL053
  534.     IF (!(LEN(VAR039)<" ")) GOTO LABEL054
  535.     GOTO LABEL029
  536.  
  537. :LABEL054
  538.     LET VAR055=0
  539.     LET VAR055=1
  540.  
  541. :LABEL055
  542.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL057
  543.     LET VAR047=""
  544.     LET VAR048=""
  545.     LET VAR057=50
  546.     LET VAR047=VAR039
  547.     RDUNET VAR055
  548.     IF (!((VAR055<>PCBNODE())&(LEFT(UN_OPER(),7)="HOT TUB"))) GOTO LABEL056
  549.     GOSUB LABEL058
  550.  
  551. :LABEL056
  552.     LET VAR055=VAR055+1
  553.     GOTO LABEL055
  554.  
  555. :LABEL057
  556.     GOTO LABEL029
  557.  
  558. :LABEL058
  559.     FCLOSE 1
  560.     LET VAR027=PPEPATH()+"HOTDATA."+STRING(VAR055)
  561.     FAPPEND 1,VAR027,O_RW,S_DN
  562.     IF (!FERR(1)) GOTO LABEL059
  563.     GOTO LABEL058
  564.  
  565. :LABEL059
  566.     FRESHLINE 
  567.  
  568. :LABEL060
  569.     IF (!(LEN(VAR047)>=VAR057)) GOTO LABEL069
  570.     LET VAR056=LEN(VAR047)
  571.     LET VAR049=MID(VAR047,VAR057,1)
  572.  
  573. :LABEL061
  574.     IF (!(VAR049<>" ")) GOTO LABEL063
  575.     LET VAR057=VAR057-1
  576.     LET VAR049=MID(VAR047,VAR057,1)
  577.     IF (!(VAR057=0)) GOTO LABEL062
  578.     LET VAR057=50
  579.     LET VAR049=" "
  580.  
  581. :LABEL062
  582.     GOTO LABEL061
  583. :LABEL063
  584.     LET VAR048=MID(VAR047,1,VAR057)
  585.     LET VAR038=VAR046+VAR076+VAR048
  586.     IF (!(VAR056<50)) GOTO LABEL064
  587.     LET VAR047=MID(VAR047,(VAR057+1),(VAR056-(VAR057-1)))
  588.     GOTO LABEL065
  589.  
  590. :LABEL064
  591.     LET VAR047=MID(VAR047,(VAR057+1),(VAR056-VAR057))
  592.  
  593. :LABEL065
  594.     FPUTLN 1,VAR038
  595.     IF (!FERR(1)) GOTO LABEL068
  596.  
  597. :LABEL066
  598.     FCLOSE 1
  599.     FAPPEND 1,VAR027,O_RW,S_DN
  600.     IF (!FERR(1)) GOTO LABEL067
  601.     GOTO LABEL066
  602.  
  603. :LABEL067
  604.     GOTO LABEL065
  605.  
  606. :LABEL068
  607.     LET VAR057=50
  608.     GOTO LABEL060
  609.  
  610. :LABEL069
  611.     LET VAR038=VAR046+VAR076+VAR047
  612.     FPUTLN 1,VAR038
  613.     FCLOSE 1
  614.     RETURN 
  615.  
  616. :LABEL070
  617.     FRESHLINE 
  618.     LET VAR047=""
  619.     LET VAR048=""
  620.     LET VAR057=50
  621.     LET VAR055=0
  622.     LET VAR054=0
  623.     LET VAR056=1
  624.  
  625. :LABEL071
  626.     IF (!(((1<0)&(VAR056>=3))|((1>=0)&(VAR056<=3)))) GOTO LABEL073
  627.     IF (!((ASC(MID(VAR039,(VAR056+3),1))>47)&(ASC(MID(VAR039,(VAR056+3),1))<58))) GOTO LABEL072
  628.     LET VAR055=MID(VAR039,4,VAR056)
  629.     LET VAR054=VAR056
  630.  
  631. :LABEL072
  632.     LET VAR056=VAR056+1
  633.     GOTO LABEL071
  634.  
  635. :LABEL073
  636.     IF (!(VAR055>STRING(VAR074))) GOTO LABEL074
  637.     PRINTLN VAR085+STRING(VAR055)+" "+VAR086
  638.     GOTO LABEL029
  639.  
  640. :LABEL074
  641.     RDUNET VAR055
  642.     LET VAR047=MID(VAR039,(5+VAR054),(LEN(VAR039)-(4+VAR054)))
  643.  
  644. :LABEL075
  645.     FCLOSE 1
  646.     LET VAR027=PPEPATH()+"HOTDATA."+STRING(VAR055)
  647.     FAPPEND 1,VAR027,O_RW,S_DN
  648.     IF (!FERR(1)) GOTO LABEL076
  649.     GOTO LABEL075
  650.  
  651. :LABEL076
  652.     FRESHLINE 
  653.     PRINTLN VAR087+" "+STRING(VAR055)
  654.     FPUTLN 1,"*"+CHR(7)+VAR095+" "+VAR041+"@X0F"
  655.  
  656. :LABEL077
  657.     IF (!(LEN(VAR047)>=VAR057)) GOTO LABEL086
  658.     LET VAR056=LEN(VAR047)
  659.     LET VAR049=MID(VAR047,VAR057,1)
  660.  
  661. :LABEL078
  662.     IF (!(VAR049<>" ")) GOTO LABEL080
  663.     LET VAR057=VAR057-1
  664.     LET VAR049=MID(VAR047,VAR057,1)
  665.     IF (!(VAR057=0)) GOTO LABEL079
  666.     LET VAR057=50
  667.     LET VAR049=" "
  668.  
  669. :LABEL079
  670.     GOTO LABEL078
  671.  
  672. :LABEL080
  673.     LET VAR048=MID(VAR047,1,VAR057)
  674.     LET VAR038="*@X0D(@X0E"+VAR045+"@X0D)[@X0B"+VAR041+VAR051+"@X0D] @X0F: "+VAR076+VAR048
  675.     IF (!(VAR056<50)) GOTO LABEL081
  676.     LET VAR047=MID(VAR047,(VAR057+1),(VAR056-(VAR057-1)))
  677.     GOTO LABEL082
  678.  
  679. :LABEL081
  680.     LET VAR047=MID(VAR047,(VAR057+1),(VAR056-VAR057))
  681.  
  682. :LABEL082
  683.     FPUTLN 1,VAR038
  684.     IF (!FERR(1)) GOTO LABEL085
  685.  
  686. :LABEL083
  687.     FCLOSE 1
  688.     FAPPEND 1,VAR027,O_RW,S_DN
  689.     IF (!FERR(1)) GOTO LABEL084
  690.     GOTO LABEL083
  691. :LABEL084
  692.     GOTO LABEL082
  693.  
  694. :LABEL085
  695.     LET VAR057=50
  696.     GOTO LABEL077
  697. :LABEL086
  698.     LET VAR038="*@X0D(@X0E"+VAR045+"@X0D)[@X0B"+VAR041+VAR051+"@X0D] @X0F: "+VAR076+VAR047
  699.     FPUTLN 1,VAR038
  700.     FCLOSE 1
  701.     RETURN 
  702.  
  703. :LABEL087
  704.     DISPFILE VAR060,2+1+4
  705.     FRESHLINE 
  706.     RETURN 
  707.  
  708. :LABEL088
  709.     FRESHLINE 
  710.     LET VAR054=0
  711.     LET VAR055=0
  712.     LET VAR056=1
  713.  
  714. :LABEL089
  715.     IF (!(((1<0)&(VAR056>=3))|((1>=0)&(VAR056<=3)))) GOTO LABEL091
  716.     IF (!((ASC(MID(VAR039,(VAR056+3),1))>47)&(ASC(MID(VAR039,(VAR056+3),1))<58))) GOTO LABEL090
  717.     LET VAR055=MID(VAR039,4,VAR056)
  718.     LET VAR054=VAR056
  719.  
  720. :LABEL090
  721.     LET VAR056=VAR056+1
  722.     GOTO LABEL089
  723.  
  724. :LABEL091
  725.     IF (!(VAR055>STRING(VAR074))) GOTO LABEL092
  726.     PRINTLN VAR083+STRING(VAR074)+" "+VAR084
  727.     GOTO LABEL029
  728.  
  729. :LABEL092
  730.     RDUNET VAR055
  731.     IF (!(LEFT(UN_OPER(),7)<>"HOT TUB")) GOTO LABEL093
  732.     PRINTLN VAR085+STRING(VAR055)+" "+VAR086
  733.     RETURN 
  734.  
  735. :LABEL093
  736.     FREWIND 4
  737.     LET VAR047=""
  738.     LET VAR048=""
  739.     LET VAR038=""
  740.  
  741. :LABEL094
  742.     IF (!(!FERR(4))) GOTO LABEL096
  743.     FGET 4,VAR047
  744.     FGET 4,VAR048
  745.     LET VAR047=RTRIM(VAR047," ")
  746.     IF (!(VAR047=UPPER(MID(VAR039,(5+VAR054),(LEN(VAR039)-(4+VAR054)))))) GOTO LABEL095
  747.     LET VAR048=RTRIM(VAR048,VAR029)
  748.     LET VAR064=UN_NAME()
  749.     GOSUB LABEL236
  750.     LET VAR038=STRING(VAR062)+"-"+"@X0B"+VAR041+VAR048
  751.     LET VAR050=VAR038
  752.     FRESHLINE 
  753.     GOSUB LABEL228
  754.     PRINTLN "@X0B"+VAR041+VAR048
  755.     RETURN 
  756.  
  757. :LABEL095
  758.     GOTO LABEL094
  759.  
  760. :LABEL096
  761.     PRINTLN VAR088+UPPER(MID(VAR039,(5+VAR054),(LEN(VAR039)-(4+VAR054))))+" "+VAR082
  762.     FRESHLINE 
  763.     RETURN 
  764.  
  765. :LABEL097
  766.     FRESHLINE 
  767.     LET VAR054=0
  768.     LET VAR055=0
  769.     LET VAR056=1
  770.  
  771. :LABEL098
  772.     IF (!(((1<0)&(VAR056>=3))|((1>=0)&(VAR056<=3)))) GOTO LABEL100
  773.     IF (!((ASC(MID(VAR039,(VAR056+4),1))>47)&(ASC(MID(VAR039,(VAR056+4),1))<58))) GOTO LABEL099
  774.     LET VAR055=MID(VAR039,5,VAR056)
  775.     LET VAR054=VAR056
  776.  
  777. :LABEL099
  778.     LET VAR056=VAR056+1
  779.     GOTO LABEL098
  780.  
  781. :LABEL100
  782.     IF (!(VAR055>STRING(VAR074))) GOTO LABEL101
  783.     PRINTLN VAR083+STRING(VAR074)+" "+VAR084
  784.     GOTO LABEL029
  785.  
  786. :LABEL101
  787.     RDUNET VAR055
  788.     IF (!(LEFT(UN_OPER(),7)<>"HOT TUB")) GOTO LABEL102
  789.     PRINTLN VAR085+STRING(VAR055)+" "+VAR086
  790.     RETURN 
  791.  
  792. :LABEL102
  793.     FREWIND 4
  794.     LET VAR047=""
  795.     LET VAR048=""
  796.     LET VAR038=""
  797.  
  798. :LABEL103
  799.     IF (!(!FERR(4))) GOTO LABEL105
  800.     FGET 4,VAR047
  801.     FGET 4,VAR048
  802.     LET VAR047=RTRIM(VAR047," ")
  803.     IF (!(VAR047=UPPER(MID(VAR039,(6+VAR054),(LEN(VAR039)-(5+VAR054)))))) GOTO LABEL104
  804.     LET VAR048=RTRIM(VAR048,VAR029)
  805.     LET VAR064=UN_NAME()
  806.     GOSUB LABEL236
  807.     LET VAR038="*@X0B"+VAR041+VAR048
  808.     LET VAR050=VAR038
  809.     PRINTLN VAR087+" "+STRING(VAR055)
  810.     FRESHLINE 
  811.     FCLOSE 1
  812.     LET VAR027=PPEPATH()+"HOTDATA."+STRING(VAR055)
  813.     FAPPEND 1,VAR027,O_RW,S_DN
  814.     FPUTLN 1,"*"+CHR(7)+VAR095+" "+VAR041+"@X0F"
  815.     FPUTLN 1,VAR050
  816.     FCLOSE 1
  817.     PRINTLN MID(VAR050,2,(LEN(VAR050)-2))
  818.     RETURN 
  819.  
  820. :LABEL104
  821.     GOTO LABEL103
  822.  
  823. :LABEL105
  824.     PRINTLN VAR088+UPPER(MID(VAR039,(6+VAR054),(LEN(VAR039)-(5+VAR054))))+" "+VAR082
  825.     FRESHLINE 
  826.     RETURN 
  827.  
  828. :LABEL106
  829.     FRESHLINE 
  830.     RDUNET PCBNODE()
  831.     IF (!(UN_OPER()="HOT TUB 1")) GOTO LABEL107
  832.     GOSUB LABEL212
  833.     PRINTLN VAR089
  834.     PRINTLN VAR090
  835.     GOTO LABEL029
  836.  
  837. :LABEL107
  838.     FOPEN 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RW,S_DN
  839.     FGET 3,VAR048
  840.     IF (!(VAR048="PUBLIC")) GOTO LABEL108
  841.     GOSUB LABEL212
  842.     PRINTLN VAR091
  843.     PRINTLN VAR092
  844.     FCLOSE 3
  845.     GOTO LABEL029
  846.  
  847. :LABEL108
  848.     NEWLINES 1
  849.     PRINTLN "@X07 Node     Callers in the Hot Tubs"
  850.     PRINTLN "@X08------   -------------------------"
  851.     LET VAR055=1
  852.  
  853. :LABEL109
  854.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL111
  855.     RDUNET VAR055
  856.     IF (!(LEFT(UN_OPER(),7)="HOT TUB")) GOTO LABEL110
  857.     PRINTLN " @X0E(@X0F"+STRING(VAR055)+"@X0E)       @X0F"+UN_NAME()
  858.  
  859. :LABEL110
  860.     LET VAR055=VAR055+1
  861.     GOTO LABEL109
  862.  
  863. :LABEL111
  864.     NEWLINES 1
  865.     INPUTSTR VAR094,VAR047,10,3,MASK_NUM(),NEWLINE
  866.     RDUNET VAR047
  867.     IF (!(VAR047=PCBNODE())) GOTO LABEL112
  868.     PRINTLN VAR093
  869.     GOTO LABEL029
  870.  
  871. :LABEL112
  872.     IF (!(LEFT(UN_OPER(),7)<>"HOT TUB")) GOTO LABEL113
  873.     PRINTLN VAR085+STRING(VAR055)+" "+VAR086
  874.     NEWLINES 1
  875.     GOTO LABEL029
  876.  
  877. :LABEL113
  878.     NEWLINES 1
  879.     FCLOSE 3
  880.     FAPPEND 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RW,S_DN
  881.     FPUTLN 3,UN_NAME()
  882.     FCLOSE 3
  883.     FCLOSE 1
  884.     FAPPEND 1,VAR027,O_RW,S_DN
  885.     FPUTLN 1,"*"+CHR(7)+VAR095+VAR041+"@X0F"
  886.     FPUTLN 1,"*"+VAR096+STRING(VAR062)+"@X0F"
  887.     FRESHLINE 
  888.     PRINTLN VAR097+VAR047+"@X0F"
  889.     FCLOSE 1
  890.     RETURN 
  891.  
  892. :LABEL114
  893.     FRESHLINE 
  894.     RDUNET PCBNODE()
  895.     IF (!(UN_OPER()="HOT TUB 1")) GOTO LABEL115
  896.     GOSUB LABEL212
  897.     PRINTLN VAR098
  898.     PRINTLN VAR099
  899.     GOTO LABEL029
  900.  
  901. :LABEL115
  902.     IF (!EXIST(PPEPATH()+"TUBDATA."+STRING(VAR062))) GOTO LABEL122
  903.     FCLOSE 3
  904.     FOPEN 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RW,S_DN
  905.     FGET 3,VAR048
  906.     IF (!(VAR048="PRIVATE")) GOTO LABEL116
  907.     PRINTLN VAR100+STRING(VAR062)+" "+VAR101
  908.     FCLOSE 3
  909.     GOTO LABEL029
  910.     GOTO LABEL121
  911.  
  912. :LABEL116
  913.     FGET 3,VAR048
  914.  
  915. :LABEL117
  916.     IF (!EXIST(PPEPATH()+"TEMPTUB."+STRING(VAR062))) GOTO LABEL118
  917.     PRINT "."
  918.     GOTO LABEL117
  919.  
  920. :LABEL118
  921.     FRESHLINE 
  922.     FCLOSE 5
  923.     FCREATE 5,PPEPATH()+"TEMPTUB"+STRING(VAR062),O_RW,S_DN
  924.     FPUTLN 5,"PRIVATE"
  925.     FPUTLN 5,VAR048
  926.  
  927. :LABEL119
  928.     IF (!(!FERR(3))) GOTO LABEL120
  929.     FGET 3,VAR048
  930.     FPUTLN 5,VAR048
  931.     GOTO LABEL119
  932.  
  933. :LABEL120
  934.     FCLOSE 5
  935.     FCLOSE 3
  936.     COPY PPEPATH()+"TEMPTUB"+STRING(VAR062),PPEPATH()+"TUBDATA."+STRING(VAR062)
  937.     DELETE PPEPATH()+"TEMPTUB"+STRING(VAR062)
  938.     PRINTLN VAR100+STRING(VAR062)+" "+VAR102
  939.     LET VAR038=STRING(VAR062)+"-@X0C"+VAR041+" "+VAR103
  940.     GOSUB LABEL228
  941.     FRESHLINE 
  942.  
  943. :LABEL121
  944.     GOTO LABEL029
  945.  
  946. :LABEL122
  947.     RETURN 
  948.  
  949. :LABEL123
  950.     FRESHLINE 
  951.     RDUNET PCBNODE()
  952.     IF (!(UN_OPER()="HOT TUB 1")) GOTO LABEL124
  953.     GOSUB LABEL212
  954.     PRINTLN VAR089
  955.     GOTO LABEL029
  956.  
  957. :LABEL124
  958.     IF (!EXIST(PPEPATH()+"TUBDATA."+STRING(VAR062))) GOTO LABEL131
  959.     FCLOSE 3
  960.     FOPEN 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RD,S_DN
  961.     FGET 3,VAR048
  962.     IF (!(VAR048="PUBLIC")) GOTO LABEL125
  963.     PRINTLN VAR100+STRING(VAR062)+" "+VAR104
  964.     FCLOSE 3
  965.     GOTO LABEL029
  966.     GOTO LABEL130
  967. :LABEL125
  968.     FGET 3,VAR048
  969.  
  970. :LABEL126
  971.     IF (!EXIST(PPEPATH()+"TEMPTUB."+STRING(VAR062))) GOTO LABEL127
  972.     PRINT "."
  973.     GOTO LABEL126
  974.  
  975. :LABEL127
  976.     FRESHLINE 
  977.     FCLOSE 5
  978.     FCREATE 5,PPEPATH()+"TEMPTUB"+STRING(VAR062),O_RW,S_DB
  979.     FPUTLN 5,"PUBLIC"
  980.     FPUTLN 5,VAR048
  981.  
  982. :LABEL128
  983.     IF (!(!FERR(3))) GOTO LABEL129
  984.     FGET 3,VAR048
  985.     FPUTLN 5,VAR048
  986.     GOTO LABEL128
  987.  
  988. :LABEL129
  989.     FCLOSE 5
  990.     FCLOSE 3
  991.     COPY PPEPATH()+"TEMPTUB"+STRING(VAR062),PPEPATH()+"TUBDATA."+STRING(VAR062)
  992.     DELETE PPEPATH()+"TEMPTUB"+STRING(VAR062)
  993.     PRINTLN VAR100+STRING(VAR062)+" "+VAR105
  994.     LET VAR038=STRING(VAR062)+"-@X0C"+VAR041+" "+VAR106
  995.     GOSUB LABEL228
  996.     FRESHLINE 
  997.  
  998. :LABEL130
  999.     GOTO LABEL029
  1000.  
  1001. :LABEL131
  1002.     RETURN 
  1003.  
  1004. :LABEL132
  1005.     FRESHLINE 
  1006.     LET VAR054=0
  1007.     LET VAR056=1
  1008.  
  1009. :LABEL133
  1010.     IF (!(((1<0)&(VAR056>=3))|((1>=0)&(VAR056<=3)))) GOTO LABEL135
  1011.     IF (!((ASC(MID(VAR039,(VAR056+3),1))>47)&(ASC(MID(VAR039,(VAR056+3),1))<58))) GOTO LABEL134
  1012.     LET VAR055=MID(VAR039,4,VAR056)
  1013.     LET VAR054=VAR056
  1014.  
  1015. :LABEL134
  1016.     LET VAR056=VAR056+1
  1017.     GOTO LABEL133
  1018.  
  1019. :LABEL135
  1020.     GETALTUSER VAR055
  1021.     IF (!(VAR055>STRING(VAR074))) GOTO LABEL136
  1022.     PRINTLN VAR083+STRING(VAR074)+" "+VAR084
  1023.     GOTO LABEL029
  1024.  
  1025. :LABEL136
  1026.     RDUNET VAR055
  1027.     IF (!(LEFT(UN_OPER(),7)="HOT TUB")) GOTO LABEL137
  1028.     PRINTLN VAR085+STRING(VAR055)+" "+VAR123
  1029.     GOTO LABEL029
  1030.  
  1031. :LABEL137
  1032.     IF (!((UN_STAT()<>"A")&(UN_STAT()<>"G"))) GOTO LABEL138
  1033.     PRINTLN VAR085+STRING(VAR055)+" "+VAR107
  1034.     GOTO LABEL029
  1035.  
  1036. :LABEL138
  1037.     BROADCAST VAR055,VAR055,VAR108+" From "+VAR041+" - "+MID(VAR039,(VAR054+5),(LEN(VAR039)-(VAR054+4)))
  1038.     PRINTLN "@X0A"+VAR108+" @X0B"+VAR041+"@X0A - @X0E"+MID(VAR039,(VAR054+5),(LEN(VAR039)-(VAR054+4)))+"@X0F"
  1039.     PRINTLN VAR109+STRING(VAR055)+"@X0F"
  1040.     FRESHLINE 
  1041.     RETURN 
  1042.  
  1043. :LABEL139
  1044.     RDUNET PCBNODE()
  1045.     LET VAR057=VAR062
  1046.     FRESHLINE 
  1047.     PRINTLN VAR110
  1048.     PRINTLN VAR112+UN_OPER()+"@X0F"
  1049.     FRESHLINE 
  1050.  
  1051. :LABEL140
  1052.     INPUTINT VAR113,VAR062,1
  1053.     FRESHLINE 
  1054.     IF (!(VAR062>255)) GOTO LABEL141
  1055.     PRINTLN VAR114+STRING(VAR062)+" "+VAR115
  1056.     GOTO LABEL140
  1057.  
  1058. :LABEL141
  1059.     IF (!(VAR062<1)) GOTO LABEL142
  1060.     PRINTLN VAR114+STRING(VAR062)+" "+VAR115
  1061.     GOTO LABEL140
  1062.  
  1063. :LABEL142
  1064.     LET VAR071=0
  1065.     LET VAR055=1
  1066.  
  1067. :LABEL143
  1068.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL147
  1069.     RDUNET VAR055
  1070.     LET VAR056=1
  1071.  
  1072. :LABEL144
  1073.     IF (!(((1<0)&(VAR056>=3))|((1>=0)&(VAR056<=3)))) GOTO LABEL146
  1074.     IF (!(RIGHT(UN_OPER(),VAR056)=STRING(VAR062))) GOTO LABEL145
  1075.     LET VAR071=1
  1076.  
  1077. :LABEL145
  1078.     LET VAR056=VAR056+1
  1079.     GOTO LABEL144
  1080.  
  1081. :LABEL146
  1082.     LET VAR055=VAR055+1
  1083.     GOTO LABEL143
  1084.  
  1085. :LABEL147
  1086.     IF (!(VAR071=0)) GOTO LABEL148
  1087.     DELETE PPEPATH()+"TUBDATA."+STRING(VAR062)
  1088.  
  1089. :LABEL148
  1090.     IF (!EXIST(PPEPATH()+"TUBDATA."+STRING(VAR062))) GOTO LABEL157
  1091.     FCLOSE 3
  1092.     FOPEN 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RD,S_DN
  1093.     FGET 3,VAR048
  1094.     FGET 3,VAR049
  1095.     IF (!(VAR048="PRIVATE")) GOTO LABEL155
  1096.  
  1097. :LABEL149
  1098.     IF (!(!FERR(3))) GOTO LABEL151
  1099.     FGET 3,VAR049
  1100.     IF (!(VAR049=VAR041)) GOTO LABEL150
  1101.     FCLOSE 3
  1102.     GOTO LABEL158
  1103.  
  1104. :LABEL150
  1105.     GOTO LABEL149
  1106.  
  1107. :LABEL151
  1108.     PRINTLN VAR100+STRING(VAR062)+" "+VAR101
  1109.     PRINT VAR111
  1110.     FREWIND 3
  1111.     FGET 3,VAR049
  1112.     FGET 3,VAR049
  1113.     FGET 3,VAR049
  1114.     PRINTLN "@X0B"+VAR049+"@X0F"
  1115.  
  1116. :LABEL152
  1117.     IF (!(!FERR(3))) GOTO LABEL154
  1118.     FGET 3,VAR049
  1119.     IF (!(VAR049>"")) GOTO LABEL153
  1120.     PRINTLN "    @X0E"+VAR049+"@X0F"
  1121.  
  1122. :LABEL153
  1123.     GOTO LABEL152
  1124.  
  1125. :LABEL154
  1126.     PRINTLN VAR116
  1127.     LET VAR062=VAR057
  1128.     FCLOSE 3
  1129.     GOTO LABEL029
  1130.     GOTO LABEL156
  1131.  
  1132. :LABEL155
  1133.     LET VAR040=VAR049
  1134.     PRINTLN VAR117+VAR049+" @X0F"
  1135.  
  1136. :LABEL156
  1137.     GOTO LABEL158
  1138.  
  1139. :LABEL157
  1140.     FCLOSE 3
  1141.     FAPPEND 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RW,S_DN
  1142.     FPUTLN 3,"PUBLIC"
  1143.     FPUTLN 3,"GENERAL DISCUSSION"
  1144.     FPUTLN 3,VAR041
  1145.     FCLOSE 3
  1146.  
  1147. :LABEL158
  1148.     PRINTLN VAR118+STRING(VAR062)+"@X0F"
  1149.     LET VAR050="HOT TUB "+STRING(VAR062)
  1150.     RDUNET PCBNODE()
  1151.     WRUNET PCBNODE(),"G",VAR041,UN_CITY(),VAR050,""
  1152.     LET VAR046=STRING(VAR062)+"-@X0D(@X0E"+VAR045+"@X0D)[@X0B"+VAR041+VAR051+"@X0D] @X0F: "
  1153.     LET VAR038=STRING(VAR057)+"-@X0B"+VAR041+" "+VAR120
  1154.     GOSUB LABEL228
  1155.     LET VAR038=STRING(VAR057)+"-"+VAR121+" "+STRING(VAR062)+"@X0F"
  1156.     GOSUB LABEL228
  1157.     LET VAR038=STRING(VAR062)+"-@X0B"+VAR041+" "+VAR122
  1158.     GOSUB LABEL228
  1159.     PRINTLN VAR119+STRING(VAR062)+"@X0F"
  1160.     FCLOSE 3
  1161.     RETURN 
  1162.  
  1163. :LABEL159
  1164.     LET VAR056=0
  1165.     FRESHLINE 
  1166.     NEWLINES 1
  1167.     PRINTLN "@POFF@@X07Node         Status                         Caller"
  1168.     PRINTLN "@X08----  ---------------------  -----------------------------------------"
  1169.     LET VAR055=1
  1170.  
  1171. :LABEL160
  1172.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL185
  1173.     RDUNET VAR055
  1174.     IF (!(VAR055=PCBNODE())) GOTO LABEL161
  1175.     WRUNET PCBNODE(),"G",VAR041,UN_CITY(),"HOT TUB "+STRING(VAR062),""
  1176.  
  1177. :LABEL161
  1178.     IF (!(UN_STAT()="A")) GOTO LABEL162
  1179.     LET VAR047="Available to Chat    "
  1180.     GOTO LABEL182
  1181.  
  1182. :LABEL162
  1183.     IF (!(UN_STAT()="G")) GOTO LABEL163
  1184.     LET VAR047="Chatting in HOT TUB  "
  1185.     GOTO LABEL182
  1186.  
  1187. :LABEL163
  1188.     IF (!(UN_STAT()="B")) GOTO LABEL164
  1189.     LET VAR047="Out of Code in DOOR  "
  1190.     GOTO LABEL182
  1191.  
  1192. :LABEL164
  1193.     IF (!(UN_STAT()="C")) GOTO LABEL165
  1194.     LET VAR047="Entering a Message   "
  1195.     GOTO LABEL182
  1196.  
  1197. :LABEL165
  1198.     IF (!(UN_STAT()="D")) GOTO LABEL166
  1199.     LET VAR047="Out of Code in DOOR  "
  1200.     GOTO LABEL182
  1201.  
  1202. :LABEL166
  1203.     IF (!(UN_STAT()="E")) GOTO LABEL167
  1204.     LET VAR047="Entering a Message   "
  1205.     GOTO LABEL182
  1206.  
  1207. :LABEL167
  1208.     IF (!(UN_STAT()="F")) GOTO LABEL168
  1209.     LET VAR047="Transferring a File  "
  1210.     GOTO LABEL182
  1211.  
  1212. :LABEL168
  1213.     IF (!(UN_STAT()="L")) GOTO LABEL169
  1214.     LET VAR047="Auto Logoff Pending  "
  1215.     GOTO LABEL182
  1216.  
  1217. :LABEL169
  1218.     IF (!(UN_STAT()="M")) GOTO LABEL170
  1219.     LET VAR047="Message              "
  1220.     GOTO LABEL182
  1221.  
  1222. :LABEL170
  1223.     IF (!(UN_STAT()="N")) GOTO LABEL171
  1224.     LET VAR047="CHATTING Private     "
  1225.     GOTO LABEL182
  1226.  
  1227. :LABEL171
  1228.     IF (!(UN_STAT()="O")) GOTO LABEL172
  1229.     LET VAR047="Logging into System  "
  1230.     GOTO LABEL182
  1231.  
  1232. :LABEL172
  1233.     IF (!(UN_STAT()="P")) GOTO LABEL173
  1234.     LET VAR047="Paging the Sysop     "
  1235.     GOTO LABEL182
  1236.  
  1237. :LABEL173
  1238.     IF (!(UN_STAT()="R")) GOTO LABEL174
  1239.     LET VAR047="CHAT Request Sent    "
  1240.     GOTO LABEL182
  1241.  
  1242. :LABEL174
  1243.     IF (!(UN_STAT()="S")) GOTO LABEL175
  1244.     LET VAR047="Entering a Message   "
  1245.     GOTO LABEL182
  1246.  
  1247. :LABEL175
  1248.     IF (!(UN_STAT()="T")) GOTO LABEL176
  1249.     LET VAR047="Transferring a File  "
  1250.     GOTO LABEL182
  1251.  
  1252. :LABEL176
  1253.     IF (!(UN_STAT()="U")) GOTO LABEL177
  1254.     LET VAR047="Unavailable for PAGE "
  1255.     GOTO LABEL182
  1256.  
  1257. :LABEL177
  1258.     IF (!(UN_STAT()="W")) GOTO LABEL178
  1259.     LET VAR047="Waiting for Node     "
  1260.     GOTO LABEL182
  1261.  
  1262. :LABEL178
  1263.     IF (!(UN_STAT()="X")) GOTO LABEL179
  1264.     LET VAR047="Drop to DOS Pending  "
  1265.     GOTO LABEL182
  1266.  
  1267. :LABEL179
  1268.     IF (!(UN_STAT()="Y")) GOTO LABEL180
  1269.     LET VAR047="No Caller this Node  "
  1270.     GOTO LABEL182
  1271.  
  1272. :LABEL180
  1273.     IF (!(UN_STAT()="Z")) GOTO LABEL181
  1274.     LET VAR047="No Caller this Node  "
  1275.     GOTO LABEL182
  1276.  
  1277. :LABEL181
  1278.     LET VAR047="No Caller this Node  "
  1279.  
  1280. :LABEL182
  1281.     GOSUB LABEL209
  1282.     PRINT "@X0F "+STRING(VAR055)
  1283.     FORWARD 3-LEN(STRING(VAR055))
  1284.     PRINTLN "   "+VAR047+"  "+UN_NAME()+VAR052+UN_CITY()
  1285.     LET VAR056=VAR056+1
  1286.     IF (!(VAR056=19)) GOTO LABEL184
  1287.     LET VAR056=1
  1288.     LET VAR047="Y"
  1289.     FRESHLINE 
  1290.     NEWLINES 1
  1291.     INPUTYN "Do you want to continue display",VAR047,10
  1292.     IF (!(UPPER(VAR047)="N")) GOTO LABEL183
  1293.     RETURN 
  1294.  
  1295. :LABEL183
  1296.     FRESHLINE 
  1297.     NEWLINES 1
  1298.     LET VAR047=""
  1299.  
  1300. :LABEL184
  1301.     LET VAR055=VAR055+1
  1302.     GOTO LABEL160
  1303.  
  1304. :LABEL185
  1305.     FRESHLINE 
  1306.     NEWLINES 1
  1307.     RETURN 
  1308.  
  1309. :LABEL186
  1310.     FRESHLINE 
  1311.     NEWLINES 1
  1312.     PRINTLN "@PON@@X07Node   Tub Number       Tub Topic              Caller          Tub Status"
  1313.     PRINTLN "@X08----  ------------  --------------------  ------------------  ------------"
  1314.     LET VAR055=1
  1315.  
  1316. :LABEL187
  1317.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL198
  1318.     RDUNET VAR055
  1319.     IF (!(LEFT(UN_OPER(),7)="HOT TUB")) GOTO LABEL197
  1320.     GOSUB LABEL209
  1321.     IF (!(UN_OPER()="HOT TUB 1")) GOTO LABEL188
  1322.     LET VAR049="GENERAL DISCUSSION"
  1323.  
  1324. :LABEL188
  1325.     LET VAR054=0
  1326.     LET VAR050=""
  1327.     LET VAR056=1
  1328.  
  1329. :LABEL189
  1330.     IF (!(((1<0)&(VAR056>=3))|((1>=0)&(VAR056<=3)))) GOTO LABEL191
  1331.     IF (!((ASC(MID(UN_OPER(),(VAR056+8),1))>47)&(ASC(MID(UN_OPER(),(VAR056+8),1))<58))) GOTO LABEL190
  1332.     LET VAR050=MID(UN_OPER(),9,VAR056)
  1333.     LET VAR054=VAR056
  1334.  
  1335. :LABEL190
  1336.     LET VAR056=VAR056+1
  1337.     GOTO LABEL189
  1338.  
  1339. :LABEL191
  1340.     IF (!EXIST(PPEPATH()+"TUBDATA."+VAR050)) GOTO LABEL192
  1341.     FCLOSE 3
  1342.     FOPEN 3,PPEPATH()+"TUBDATA."+VAR050,O_RW,S_DN
  1343.     FGET 3,VAR049
  1344.     FGET 3,VAR049
  1345.     FCLOSE 3
  1346.  
  1347. :LABEL192
  1348.     LET VAR047=RIGHT(UN_OPER(),1)
  1349.     IF (!FILEINF((PPEPATH()+"TUBDATA."+VAR047),1)) GOTO LABEL195
  1350.     FCLOSE 3
  1351.     FOPEN 3,PPEPATH()+"TUBDATA."+VAR047,O_RD,S_DN
  1352.     FGET 3,VAR048
  1353.     IF (!(VAR048="PRIVATE")) GOTO LABEL193
  1354.     LET VAR063="PRIVATE"
  1355.     GOTO LABEL194
  1356.  
  1357. :LABEL193
  1358.     LET VAR063="PUBLIC"
  1359.  
  1360. :LABEL194
  1361.     FCLOSE 3
  1362.     GOTO LABEL196
  1363.  
  1364. :LABEL195
  1365.     LET VAR063="PUBLIC"
  1366.  
  1367. :LABEL196
  1368.     PRINT "@X0F "+STRING(VAR055)
  1369.     FORWARD 3-LEN(STRING(VAR055))
  1370.     PRINT "   "+UN_OPER()
  1371.     FORWARD 22-GETX()
  1372.     PRINT VAR049
  1373.     FORWARD 44-GETX()
  1374.     PRINT UN_NAME()
  1375.     FORWARD 64-GETX()
  1376.     PRINTLN VAR063
  1377.     IF (!(VAR055=PCBNODE())) GOTO LABEL197
  1378.     WRUNET PCBNODE(),"G",VAR041,UN_CITY(),"HOT TUB "+STRING(VAR062),""
  1379.  
  1380. :LABEL197
  1381.     LET VAR055=VAR055+1
  1382.     GOTO LABEL187
  1383.  
  1384. :LABEL198
  1385.     PRINT "@POFF@"
  1386.     FRESHLINE 
  1387.     NEWLINES 1
  1388.     RETURN 
  1389.  
  1390. :LABEL199
  1391.     CLS 
  1392.     DISPFILE VAR033,2+1+4
  1393.     GOTO LABEL029
  1394.     RETURN 
  1395.  
  1396.  
  1397.  
  1398. :LABEL2001
  1399.     FRESHLINE 
  1400.     DISPFILE VAR034,2+1+4
  1401.     FRESHLINE 
  1402.     RETURN 
  1403.  
  1404. :LABEL2002
  1405.     FRESHLINE 
  1406.     DISPFILE VAR124,2+1+4
  1407.     FRESHLINE 
  1408.     RETURN 
  1409.  
  1410. :LABEL200
  1411.     FRESHLINE 
  1412.     DISPFILE VAR035,2+1+4
  1413.     FRESHLINE 
  1414.     RETURN 
  1415.  
  1416. :LABEL201
  1417.     FRESHLINE 
  1418.     RDUNET PCBNODE()
  1419.     IF (!(UN_OPER()="HOT TUB 1")) GOTO LABEL202
  1420.     GOSUB LABEL212
  1421.     PRINTLN "@X0AYou cannot change the topic of tub # @X0E1@X0A!@X0F"
  1422.     PRINTLN "@X0ABecause it is a public tub only.@X0F"
  1423.     GOTO LABEL029
  1424.  
  1425. :LABEL202
  1426.     IF (!EXIST(PPEPATH()+"TUBDATA."+STRING(VAR062))) GOTO LABEL208
  1427.     FCLOSE 3
  1428.     FOPEN 3,PPEPATH()+"TUBDATA."+STRING(VAR062),O_RW,S_DN
  1429.     FGET 3,VAR048
  1430.     FGET 3,VAR048
  1431.     NEWLINES 1
  1432.     PRINT "@X0ACurrent topic is @X0E"+VAR048+"@X0F"
  1433.     NEWLINES 1
  1434.     LET VAR049="Y"
  1435.     INPUTYN "Do you want to change the topic",VAR049,15
  1436.     FRESHLINE 
  1437.     IF (!(UPPER(VAR049)="N")) GOTO LABEL203
  1438.     GOTO LABEL029
  1439.  
  1440. :LABEL203
  1441.     LET VAR049=""
  1442.     INPUTSTR "Enter the NEW Topic",VAR049,15,15,MASK_ASCII(),64+2+4
  1443.     FRESHLINE 
  1444.  
  1445. :LABEL204
  1446.     IF (!EXIST(PPEPATH()+"TEMPTUB."+STRING(VAR062))) GOTO LABEL205
  1447.     PRINT "."
  1448.     GOTO LABEL204
  1449.  
  1450. :LABEL205
  1451.     FRESHLINE 
  1452.     FREWIND 3
  1453.     FCLOSE 5
  1454.     FCREATE 5,PPEPATH()+"TEMPTUB"+STRING(VAR062),O_RW,S_DN
  1455.     FGET 3,VAR048
  1456.     FPUTLN 5,VAR048
  1457.     FGET 3,VAR048
  1458.     FPUTLN 5,VAR049
  1459.     LET VAR048=""
  1460.  
  1461. :LABEL206
  1462.     IF (!(!FERR(3))) GOTO LABEL207
  1463.     FGET 3,VAR048
  1464.     FPUTLN 5,VAR048
  1465.     GOTO LABEL206
  1466.  
  1467. :LABEL207
  1468.     FCLOSE 5
  1469.     FCLOSE 3
  1470.     COPY PPEPATH()+"TEMPTUB"+STRING(VAR062),PPEPATH()+"TUBDATA."+STRING(VAR062)
  1471.     DELETE PPEPATH()+"TEMPTUB"+STRING(VAR062)
  1472.  
  1473. :LABEL208
  1474.     LET VAR040=VAR049
  1475.     LET VAR047="@X0B"+VAR041+"@X0A Changed this Tubs topic to @X0E"+VAR049+"@X0F"
  1476.     PRINT VAR047
  1477.     LET VAR038=STRING(VAR062)+"-"+VAR047
  1478.     GOSUB LABEL228
  1479.     RETURN 
  1480.     GOTO LABEL029
  1481.  
  1482. :LABEL209
  1483.     IF (!(UN_CITY()>"")) GOTO LABEL210
  1484.     LET VAR052=" - "
  1485.     GOTO LABEL211
  1486.  
  1487. :LABEL210
  1488.     LET VAR052="   "
  1489.  
  1490. :LABEL211
  1491.     RETURN 
  1492.  
  1493. :LABEL212
  1494.     PRINT CHR(7)
  1495.     MPRINT CHR(7)
  1496.     RETURN 
  1497.  
  1498. :LABEL213
  1499.     IF (!FILEINF((PPEPATH()+"HOTDATA."+VAR045),1)) GOTO LABEL222
  1500.     FCLOSE 2
  1501.     FOPEN 2,PPEPATH()+"HOTDATA."+STRING(VAR045),O_RD,S_DB
  1502.     IF (!FERR(2)) GOTO LABEL214
  1503.     GOTO LABEL213
  1504.  
  1505. :LABEL214
  1506.     LET VAR047=""
  1507.  
  1508. :LABEL215
  1509.     IF (!(!FERR(2))) GOTO LABEL221
  1510.     FGET 2,VAR047
  1511.     IF (!(VAR047>"")) GOTO LABEL220
  1512.     LET VAR055=1
  1513.  
  1514. :LABEL216
  1515.     IF (!(((1<0)&(VAR055>=4))|((1>=0)&(VAR055<=4)))) GOTO LABEL218
  1516.     IF (!(MID(VAR047,VAR055,1)="-")) GOTO LABEL217
  1517.     LET VAR056=VAR055
  1518.  
  1519. :LABEL217
  1520.     LET VAR055=VAR055+1
  1521.     GOTO LABEL216
  1522.  
  1523. :LABEL218
  1524.     IF (!(LEFT(VAR047,VAR056)=(STRING(VAR062)+"-"))) GOTO LABEL219
  1525.     FRESHLINE 
  1526.     PRINTLN MID(VAR047,(VAR056+1),LEN(VAR047))
  1527.  
  1528. :LABEL219
  1529.     IF (!(LEFT(VAR047,1)="*")) GOTO LABEL220
  1530.     FRESHLINE 
  1531.     PRINTLN MID(VAR047,2,LEN(VAR047))
  1532.  
  1533. :LABEL220
  1534.     LET VAR047=""
  1535.     GOTO LABEL215
  1536.  
  1537. :LABEL221
  1538.     FCLOSE 2
  1539.     DELETE PPEPATH()+"HOTDATA."+VAR045
  1540.     RDUNET PCBNODE()
  1541.     WRUNET PCBNODE(),"G",VAR041,UN_CITY(),"HOT TUB "+STRING(VAR062),""
  1542.     LET VAR028=TIME()
  1543.  
  1544. :LABEL222
  1545.     IF (!((MINLEFT()=5)&(VAR066=0))) GOTO LABEL223
  1546.     FRESHLINE 
  1547.     GOSUB LABEL212
  1548.     PRINTLN "@X0A(5 Minute Warning)@X0F"
  1549.     LET VAR066=1
  1550.  
  1551. :LABEL223
  1552.     IF (!((MINLEFT()=4)&(VAR067=0))) GOTO LABEL224
  1553.     FRESHLINE 
  1554.     GOSUB LABEL212
  1555.     PRINTLN "@X0A(4 Minute Warning)@X0F"
  1556.     LET VAR067=1
  1557.  
  1558. :LABEL224
  1559.     IF (!((MINLEFT()=3)&(VAR068=0))) GOTO LABEL225
  1560.     FRESHLINE 
  1561.     GOSUB LABEL212
  1562.     PRINTLN "@X0A(3 Minute Warning)@X0F"
  1563.     LET VAR068=1
  1564.  
  1565. :LABEL225
  1566.     IF (!((MINLEFT()=2)&(VAR069=0))) GOTO LABEL226
  1567.     FRESHLINE 
  1568.     GOSUB LABEL212
  1569.     PRINTLN "@X0A(2 Minute Warning)@X0F"
  1570.     LET VAR069=1
  1571.  
  1572. :LABEL226
  1573.     IF (!((MINLEFT()=1)&(VAR070=0))) GOTO LABEL227
  1574.     FRESHLINE 
  1575.     GOSUB LABEL212
  1576.     PRINTLN "@X0A(1 Minute Warning)@X0F"
  1577.     GOTO LABEL246
  1578.  
  1579. :LABEL227
  1580.     RETURN 
  1581.  
  1582. :LABEL228
  1583.     LET VAR055=0
  1584.     LET VAR055=1
  1585.  
  1586. :LABEL229
  1587.     IF (!(((1<0)&(VAR055>=VAR074))|((1>=0)&(VAR055<=VAR074)))) GOTO LABEL233
  1588.     RDUNET VAR055
  1589.     IF (!((VAR055<>PCBNODE())&(LEFT(UN_OPER(),7)="HOT TUB"))) GOTO LABEL232
  1590.  
  1591. :LABEL230
  1592.     FCLOSE 1
  1593.     LET VAR027=PPEPATH()+"HOTDATA."+STRING(VAR055)
  1594.     FAPPEND 1,VAR027,O_RW,S_DN
  1595.     IF (!FERR(1)) GOTO LABEL231
  1596.     GOTO LABEL230
  1597.  
  1598. :LABEL231
  1599.     FPUTLN 1,VAR038
  1600.     FCLOSE 1
  1601.  
  1602. :LABEL232
  1603.     LET VAR055=VAR055+1
  1604.     GOTO LABEL229
  1605.  
  1606. :LABEL233
  1607.     RETURN 
  1608.  
  1609. :LABEL234
  1610.     IF (!EXIST(PPEPATH()+"HOTDATA."+STRING(PCBNODE()))) GOTO LABEL235
  1611.     DELETE PPEPATH()+"HOTDATA."+STRING(PCBNODE())
  1612.  
  1613. :LABEL235
  1614.     RETURN 
  1615.  
  1616. :LABEL236
  1617.     LET VAR049=""
  1618.     LET VAR057=1
  1619.  
  1620. :LABEL237
  1621.     IF (!(((1<0)&(VAR057>=LEN(VAR048)))|((1>=0)&(VAR057<=LEN(VAR048))))) GOTO LABEL239
  1622.     IF (!(UPPER(MID(VAR048,VAR057,12))="@HOT_OPTEXT@")) GOTO LABEL238
  1623.     LET VAR049=MID(VAR048,1,(VAR057-1))
  1624.     LET VAR053=LEN(VAR049)
  1625.     LET VAR049=VAR049+VAR064
  1626.     LET VAR049=VAR049+MID(VAR048,(VAR053+13),(LEN(VAR048)-VAR053-10))
  1627.     LET VAR048=VAR049
  1628.  
  1629. :LABEL238
  1630.     LET VAR057=VAR057+1
  1631.     GOTO LABEL237
  1632.  
  1633. :LABEL239
  1634.     RETURN 
  1635.     IF (!FILEINF((PPEPATH()+"HOTTUB."+STRING(VAR062)),1)) GOTO LABEL240
  1636.     FCLOSE 3
  1637.  
  1638. :LABEL240
  1639.     RETURN 
  1640.  
  1641. :LABEL241
  1642.     CLS 
  1643.     RETURN 
  1644.  
  1645. :LABEL242
  1646.     NEWLINES 5
  1647.     FORWARD 12
  1648.     PRINTLN "@X1E    THIS PAUSE REMOVED WHEN REGISTERED    @X0F"
  1649.     FORWARD 12
  1650.     PRINTLN "@X1E  DEMO VERSION ALLOWS 10 MINUTES PER CALL @X0F"
  1651.     LET VAR028=TIME()
  1652.     NEWLINES 2
  1653.     LET VAR056=TIME()-VAR028
  1654.     LET VAR055=VAR056
  1655.     PRINT 30-VAR056
  1656.  
  1657. :LABEL243
  1658.     IF (!((TIME()-VAR028)<30)) GOTO LABEL245
  1659.     LET VAR056=TIME()-VAR028
  1660.     IF (!(VAR055<VAR056)) GOTO LABEL244
  1661.     BACKUP 3
  1662.     PRINT "  "
  1663.     BACKUP 3
  1664.     PRINT 30-VAR056
  1665.     LET VAR055=VAR056
  1666.  
  1667. :LABEL244
  1668.     GOTO LABEL243
  1669. :LABEL245
  1670.     BACKUP 3
  1671.     PRINT "  "
  1672.     CLS 
  1673.     RETURN 
  1674.     CLS 
  1675.     GOSUB LABEL212
  1676.     GOSUB LABEL212
  1677.     GOSUB LABEL212
  1678.     NEWLINES 3
  1679.     PRINT "@X0F"
  1680.     PRINTLN "                     THIS SOFTWARE HAS BEEN PIRATED!"
  1681.     NEWLINES 1
  1682.     PRINTLN "               CALL JOE'S SOFTWARE STORE AT (317) 849-2196"
  1683.     NEWLINES 1
  1684.     PRINTLN "                 For A $1000.00 REWARD upon conviction. "
  1685.     NEWLINES 5
  1686.     WAIT 
  1687.     GOTO LABEL249
  1688.  
  1689. :LABEL246
  1690.     GETUSER 
  1691.     IF (!(VAR072=1)) GOTO LABEL247
  1692.     LOG U_NAME()+" Exited Hot Chat",0
  1693.  
  1694. :LABEL247
  1695.     IF (!(VAR065>0)) GOTO LABEL248
  1696.     ADJTIME VAR065
  1697.  
  1698. :LABEL248
  1699.     LET VAR038="@X0B"+VAR041+"@X0F "+READLINE(VAR037,2)
  1700.     FRESHLINE 
  1701.     PRINTLN VAR038
  1702.     LET VAR038="*"+CHR(7)+VAR038
  1703.     GOSUB LABEL228
  1704.     FCLOSE 1
  1705.     FCLOSE 2
  1706.     FCLOSE 3
  1707.     FCLOSE 4
  1708.     FCLOSE 5
  1709.     PRINT "@PON@"
  1710.     IF (!(UPPER(LEFT(VAR039,2))="/G")) GOTO LABEL249
  1711.     GOODBYE 
  1712.  
  1713. :LABEL249
  1714.  
  1715. ;------------------------------------------------------------------------------
  1716. ;Statements used:
  1717. ;
  1718. ;     5 CLS
  1719. ;     2 WAIT
  1720. ;   298 GOTO
  1721. ;   334 LET
  1722. ;    29 PRINT
  1723. ;    76 PRINTLN
  1724. ;   170 IF
  1725. ;     4 DISPFILE
  1726. ;     3 FCREATE
  1727. ;    10 FOPEN
  1728. ;     9 FAPPEND
  1729. ;    50 FCLOSE
  1730. ;    38 FGET
  1731. ;    23 FPUTLN
  1732. ;     3 GETUSER
  1733. ;     6 DELETE
  1734. ;     2 ADJTIME
  1735. ;     2 LOG
  1736. ;     2 INPUTSTR
  1737. ;     2 INPUTYN
  1738. ;     1 INPUTINT
  1739. ;    49 GOSUB
  1740. ;    29 RETURN
  1741. ;    22 NEWLINES
  1742. ;     1 GOODBYE
  1743. ;     1 BROADCAST
  1744. ;    20 RDUNET
  1745. ;     5 WRUNET
  1746. ;     6 BACKUP
  1747. ;    12 FORWARD
  1748. ;    48 FRESHLINE
  1749. ;     1 MPRINT
  1750. ;     4 FREWIND
  1751. ;     3 COPY
  1752. ;     1 GETALTUSER
  1753. ;
  1754. ;Functions used:
  1755. ;
  1756. ;    12 *
  1757. ;     4 /
  1758. ;   386 +
  1759. ;    39 -
  1760. ;    99 =
  1761. ;    14 <>
  1762. ;    32 <
  1763. ;    20 <=
  1764. ;    21 >
  1765. ;    42 >=
  1766. ;   178 !
  1767. ;    59 &
  1768. ;    30 |
  1769. ;    46 LEN
  1770. ;    25 UPPER
  1771. ;    44 MID
  1772. ;    32 LEFT
  1773. ;     2 RIGHT
  1774. ;     1 SPACE
  1775. ;    16 FERR
  1776. ;    11 CHR
  1777. ;    15 ASC
  1778. ;     4 RTRIM
  1779. ;     7 TIME
  1780. ;     4 U_NAME
  1781. ;     1 SEC
  1782. ;     1 INKEY
  1783. ;    83 STRING
  1784. ;     1 MASK_NUM
  1785. ;     1 MASK_ASCII
  1786. ;    50 PPEPATH
  1787. ;    21 PCBNODE
  1788. ;    54 READLINE
  1789. ;    22 UN_STAT
  1790. ;    10 UN_NAME
  1791. ;     7 UN_CITY
  1792. ;    21 UN_OPER
  1793. ;     6 MINLEFT
  1794. ;    12 EXIST
  1795. ;     4 LANGEXT
  1796. ;     3 GETX
  1797. ;     3 FILEINF
  1798. ;
  1799. ;------------------------------------------------------------------------------
  1800. ;happy patching, ripping, registering  ...  and remember: ECR makes it possible
  1801. ;------------------------------------------------------------------------------
  1802.